// Class TForm sample

//----------------------------------------------------------------------------//

function Main()

  local oForm := TForm()

  MsgInfo( oForm:ClassName() )

  oForm:ShowModal()

return nil

//----------------------------------------------------------------------------//
